From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Aug 1997 04:37:02 +0000 (+0000)
Subject: (rmail-mode-1): Update the value for mode-line-modified.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~79539
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e823bfa3adeb847782d99a5b2300f433c4468f8e;p=emacs.git

(rmail-mode-1): Update the value for mode-line-modified.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 55e2b01719b..26a50cc6045 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -836,10 +836,7 @@ Instead, these commands are available:
   ;; The one exception is when messages are copied into an Rmail mode buffer.
   ;; rmail-output-to-rmail-file enables auto save when you do that.
   (setq buffer-auto-save-file-name nil)
-  (if (boundp 'mode-line-modified)
-      (setq mode-line-modified "--- ")
-    (setq mode-line-format
-	  (cons "--- " (cdr (default-value 'mode-line-format)))))
+  (setq mode-line-modified "--")
   (use-local-map rmail-mode-map)
   (set-syntax-table text-mode-syntax-table)
   (setq local-abbrev-table text-mode-abbrev-table))